home *** CD-ROM | disk | FTP | other *** search
/ Instant Access / Instant Access CD-ROM Issue 1 (1993).iso / Instant Access / Graphics / Design / DesignStudio / •demo / DesignStudio Demo / DesignStudio Demo.rsrc / PSCD_265 < prev    next >
Encoding:
Text File  |  1992-09-18  |  223 b   |  10 lines
  1. 3 dict begin
  2. currentscreen
  3. /oldproc exch def
  4. /oldangle exch def
  5. /oldfreq exch def
  6. 60 45 {abs exch abs 2 copy add 1 gt
  7. {1. sub dup mul exch 1. sub dup mul add 1. sub}
  8. {dup mul exch dup mul add 1. exch sub}
  9. ifelse} setscreen
  10.